home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcmag / v11n11 / bomeom.prg < prev    next >
Encoding:
Text File  |  1991-11-14  |  795 b   |  22 lines
  1. ***********************************************************************
  2. * FUNCTION BOM( dDay )                                Clipper 5
  3. * Return the first date of the month
  4. ***********************************************************************
  5. FUNCTION BOM( dDay )
  6.    IF dDay == NIL
  7.       dDay := DATE()
  8.    ENDIF
  9. RETURN dDay - DAY( dDay ) + 1
  10.  
  11. ***********************************************************************
  12. * FUNCTION EOM( dDay )                                Clipper 5
  13. * Return the last date of the month
  14. ***********************************************************************
  15. FUNCTION EOM( dDay )
  16.    LOCAL dBump
  17.    IF dDay == NIL
  18.       dDay := DATE()
  19.    ENDIF
  20.    dBump := dDay + 35 - DAY( dDay )          // Somewhere in next month
  21. RETURN dBump - DAY( dBump )
  22.